home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / maestro / maestro.bas < prev    next >
BASIC Source File  |  1993-11-30  |  6KB  |  139 lines
  1. 10000 '  :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. 10010 '                      ひんしゅく覚悟音楽デモ
  3. 10020 '                       《 Oh! まえすとろ 》
  4. 10030 '                     By  ｢まえすとろ｣の世話係
  5. 10040 '  :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6. 10050 '
  7. 10060 CLEAR,,,210000
  8. 10070 SCREEN@0 : CLS : PLAY OFF : DEFINT A-Z
  9. 10080 '
  10. 10090 DIM SCB(101788),B(15),R(15),G(15)
  11. 10100 DIM RA(392),LA(392),RB1(72),RB2(72),LB1(72),LB2(72)
  12. 10110 DIM FA1(174),FA2(174),FB(174),PN(552)
  13. 10120 '
  14. 10130 FOR I=7 TO 15 : PALETTE I,[0,0,0] : NEXT I
  15. 10140 LOAD@"MAESTRO.TIF",(0,0)   : LOAD@"AP_SCB12.EUP",SCB
  16. 10150 GET@A( 2,  2)-(29, 50),RA  : GET@A( 2, 51)-( 29, 59),RB1
  17. 10160 GET@A(33, 51)-(60, 59),RB2 : GET@A(64,  2)-( 84, 30),FA1
  18. 10170 GET@A(64, 31)-(84, 59),FB  : GET@A(88,  2)-(108, 30),FA2
  19. 10180 GET@A( 2, 63)-(29,111),LA  : GET@A( 2,112)-( 29,120),LB1
  20. 10190 GET@A(33,112)-(60,120),LB2 : GET@A(64, 63)-(104,108),PN
  21. 10200 '
  22. 10210 LOAD@"TITLE.TIF",(256,209): WAIT 100
  23. 10220 GOSUB *T_LIGHT : WAIT 400 : GOSUB *T_DARK : WAIT 300
  24. 10230 '
  25. 10240 CLS
  26. 10250 SYMBOL(251,184),"～   曲   目   ～" ,1      ,.875! ,%7 ' 16*14
  27. 10260 SYMBOL(259,218),"Ａ.スクリアビン"   ,1      ,.875! ,%7 ' 16*14
  28. 10270 SYMBOL(236,244),"12"                ,1.125! ,.8125!,%7 ' 18*13
  29. 10280 SYMBOL(254,244),"のエチュード作品８", .875! ,.8125!,%7 ' 14*13
  30. 10290 SYMBOL(380,246),"より"              , .6875!,.625! ,%7 ' 11*10
  31. 10300 SYMBOL(259,263),"第12番 嬰ニ短調"   ,1      ,.875! ,%7 ' 16*14
  32. 10310 GOSUB *T_LIGHT : WAIT 400 : GOSUB *T_DARK : WAIT 300
  33. 10320 '
  34. 10330 TIME$="00:00:00" : PLAY@ SCB
  35. 10340 '
  36. 10350 CLS    : LINE(230,170)-(409,279),PSET,%14,BF
  37. 10360  X=242:Y=220
  38. 10370          PUT@A(X+60,Y+12)-(X+100,Y+57),PN
  39. 10380          PUT@A(X,   Y)   -(X+ 27,Y+48),RA
  40. 10390          PUT@A(X,   Y+49)-(X+ 27,Y+57),RB2
  41. 10400 GOSUB *LIGHT
  42. 10410 FOR I=0 TO 7
  43. 10420  X=X+2 : LINE(X-2,Y)-(X-1,Y+57),PSET,%14,BF
  44. 10430          PUT@A(X,  Y)   -(X+27,Y+48),RA
  45. 10440          PUT@A(X,  Y+49)-(X+27,Y+57),RB1
  46. 10450  WAIT 24
  47. 10460  X=X+2 : LINE(X-2,Y)-(X-1,Y+57),PSET,%14,BF
  48. 10470          PUT@A(X,Y)   -(X+27,Y+48),RA
  49. 10480          PUT@A(X,Y+49)-(X+27,Y+57),RB2
  50. 10490  WAIT 24
  51. 10500 NEXT I : WAIT 44
  52. 10510          LINE(X,   Y)-(X+ 4,Y+57),PSET,%14,BF
  53. 10520          LINE(X+26,Y)-(X+27,Y+57),PSET,%14,BF
  54. 10530          PUT@A(X+5,Y+29)-(X+25,Y+57),FB
  55. 10540          PUT@A(X+5,Y)   -(X+25,Y+28),FA1 : WAIT 164
  56. 10550          PUT@A(X+5,Y)   -(X+25,Y+28),FA2 : WAIT 124
  57. 10560          PUT@A(X+5,Y)   -(X+25,Y+28),FA1 : WAIT  64
  58. 10570          PUT@A(X+5,Y)   -(X+25,Y+28),FA2
  59. 10580 GOSUB *DARK
  60. 10590 '
  61. 10600 WHILE TIME$<>"00:02:19":WEND : WAIT 50
  62. 10610 '
  63. 10620 CLS    : LINE(230,170)-(409,279),PSET,%14,BF
  64. 10630 X=270  : PUT@A(X+32,Y+12)-(X+72,Y+57),PN
  65. 10640          PUT@A(X+ 5,Y)   -(X+25,Y+28),FA1
  66. 10650          PUT@A(X+ 5,Y+29)-(X+25,Y+57),FB
  67. 10660 GOSUB *LIGHT
  68. 10670 FOR I=0 TO 1 : WAIT 24
  69. 10680          PUT@A(X+5,Y)-(X+25,Y+28),FA2 : WAIT 124
  70. 10690          PUT@A(X+5,Y)-(X+25,Y+28),FA1 : WAIT 100
  71. 10700 NEXT : X=X+2
  72. 10710 FOR I=0 TO 7
  73. 10720  WAIT 24:LINE(X+28,Y)-(X+29,Y+57),PSET,%14,BF
  74. 10730          PUT@A(X,Y)   -(X+27,Y+48),LA
  75. 10740          PUT@A(X,Y+49)-(X+27,Y+57),LB1
  76. 10750  X=X-2
  77. 10760  WAIT 24:LINE(X+28,Y)-(X+29,Y+57),PSET,%14,BF
  78. 10770          PUT@A(X,Y)   -(X+27,Y+48),LA
  79. 10780          PUT@A(X,Y+49)-(X+27,Y+57),LB2
  80. 10790  X=X-2
  81. 10800 NEXT I : GOSUB *DARK : WAIT 500
  82. 10810 '
  83. 10820 CLS
  84. 10830 SYMBOL(215,204),"最後までお付き合いいただき",1     ,.875! ,%7 ' 16*14
  85. 10840 SYMBOL(231,228),"ありがとうございました"    ,1     ,.875! ,%7 ' 16*14
  86. 10850 SYMBOL(265,251),"‘まえすとろ’"            ,.75!  ,.6875!,%7 ' 12*11
  87. 10860 SYMBOL(343,253),"より"                      ,.5625!,.5!   ,%7 '  9* 8
  88. 10870 GOSUB *T_LIGHT : WAIT 400 : GOSUB *T_DARK : WAIT 300
  89. 10880 CLS : PALETTE
  90. 10890 END
  91. 10900 '
  92. 10910 *T_LIGHT: FOR I=1 TO 16
  93. 10920  WAIT 10:PALETTE 7,[I*15,I*15,I*15] : NEXT I
  94. 10930 RETURN
  95. 10940 *T_DARK : FOR I=0 TO 15
  96. 10950  WAIT 8 :PALETTE 7,[(15-I)*15,(15-I)*15,(15-I)*15] : NEXT I
  97. 10960 RETURN
  98. 10970 '
  99. 10980 *LIGHT : RESTORE *PL1 : GOSUB *PL_READ : WAIT 8
  100. 10990          RESTORE *PL2 : GOSUB *PL_READ : WAIT 6
  101. 11000          RESTORE *PL3 : GOSUB *PL_READ : WAIT 6
  102. 11010          RESTORE *PL4 : GOSUB *PL_READ : WAIT 4
  103. 11020          RESTORE *PL5 : GOSUB *PL_READ : WAIT 4
  104. 11030          RESTORE *PL6 : GOSUB *PL_READ : WAIT 2
  105. 11040          RESTORE *PL7 : GOSUB *PL_READ : WAIT 2
  106. 11050          RESTORE *PL8 : GOSUB *PL_READ
  107. 11060 RETURN
  108. 11070 *DARK  : RESTORE *PL7 : GOSUB *PL_READ : WAIT 2
  109. 11080          RESTORE *PL6 : GOSUB *PL_READ : WAIT 2
  110. 11090          RESTORE *PL5 : GOSUB *PL_READ : WAIT 4
  111. 11100          RESTORE *PL4 : GOSUB *PL_READ : WAIT 4
  112. 11110          RESTORE *PL3 : GOSUB *PL_READ : WAIT 6
  113. 11120          RESTORE *PL2 : GOSUB *PL_READ : WAIT 6
  114. 11130          RESTORE *PL1 : GOSUB *PL_READ : WAIT 8
  115. 11140  FOR I=8 TO 15
  116. 11150          PALETTE I,[0,0,0] : NEXT I
  117. 11160 RETURN
  118. 11170 '
  119. 11180 *PL_READ: FOR I=8 TO 15 : READ B(I),R(I),G(I)
  120. 11190          PALETTE I,[G(I)*15,R(I)*15,B(I)*15] : NEXT I
  121. 11200 RETURN
  122. 11210 '
  123. 11220 *PL1   : DATA 08,08,08, 01,01,01, 01,02,01, 01,01,01
  124. 11230          DATA 02,02,02, 02,02,02, 01,02,02, 02,02,02
  125. 11240 *PL2   : DATA 08,08,08, 01,01,01, 02,03,01, 02,02,02
  126. 11250          DATA 04,03,04, 03,04,04, 01,04,04, 04,04,04
  127. 11260 *PL3   : DATA 08,08,08, 02,02,02, 03,04,02, 03,03,03
  128. 11270          DATA 05,04,05, 04,05,06, 02,06,06, 05,06,06
  129. 11280 *PL4   : DATA 08,08,08, 02,02,02, 04,06,02, 04,04,04
  130. 11290          DATA 07,06,07, 06,07,08, 03,08,08, 07,08,08
  131. 11300 *PL5   : DATA 08,08,08, 03,03,03, 05,08,03, 05,05,05
  132. 11310          DATA 09,08,09, 08,09,10, 04,10,10, 09,10,10
  133. 11320 *PL6   : DATA 08,08,08, 03,03,03, 07,10,03, 06,06,06
  134. 11330          DATA 11,10,11, 10,11,12, 05,12,12, 11,12,12
  135. 11340 *PL7   : DATA 08,08,08, 03,03,03, 08,11,04, 07,07,07
  136. 11350          DATA 12,11,12, 11,13,14, 06,14,14, 13,14,14
  137. 11360 *PL8   : DATA 08,08,08, 04,04,04, 09,13,05, 08,08,08
  138. 11370          DATA 14,13,14, 13,15,16, 07,16,16, 15,16,16
  139.